home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / toukou / x68k / kaeru.bas
Encoding:
BASIC Source File  |  1995-08-11  |  15.0 KB  |  235 lines
  1.    10 screen 0,2,1,1:window(0,0,511,511):dim get_1(500),get_0(500)
  2.    20 dim get_2(500),get_3(500),get_4(500),get_5(500),get_6(500)
  3.    30 dim get_7(1000),get_8(500),get_9(500),dr(1000):char buf(256)
  4.    40 str A$[200],B$[50],C$[200],D$[200],E$[50],F$[200],G$[200],H$[200]
  5.    50 int ti=94,ii,jj,col:dim str a(12)[100]:str mo
  6.    60 str e1$[85]="    é¿é▀é┼é╞éñé▓é┤éóé▄é╖üB  ü@âJâGâïîNé═üAæSòöé╠âX"
  7.    70 e1$=e1$+"âeü[âW    é≡âNâèâAü[é╡é▄é╡é╜üIüI":dim kg(7850)
  8.    80 /* ----- écé`ésé` -----------------------------------------------
  9.    90 int x,y,z,p,m,jump,o1,o2,o3,o4,k,po,s1,s2:m_stop():dim k_g(8000)
  10.   100 float f=1.5#:int page_y,st=1,kx_1,kx_2,ky_1,ky_2,ke_z,tx,ty,txz
  11.   110 int tyz,c,dx,dy,xx:sp_init():sp_disp(1):sp_off():vpage(0)
  12.   120 dim co(16)={0,65337,58795,41671,1857,2181,59193,63421,35397,26963,
  13.   130 33161,45573,53319,49821,14799,55}:dim co2(16)={0,8456,1024,44398,
  14.   140 21146,33650,36,22,10570,14798,16912,2,2,33830,52858,61306}
  15.   150 dim co3(16)={0,61312,3014,24012,26256,32660,36826,45026,55026,
  16.   160 3970,36444,65532,29722,2114,23826,1}:for i=0 to 15
  17.   170 sp_color(i,co(i)):sp_color(i,co2(i),2):palet(10+i,co3(i)):next
  18.   180 for i=0 to 7:palet(1+i,hsv(10,17,31-i*3)):next:palet(9,65500)
  19.   190 for i=0 to 6:palet(31+i,hsv(24,29,31-i*4)):color 6:locate 6,5
  20.   200 palet(41+i,hsv(24,29,31-i*4)):next:b2():print"é╡é╬éτé¡é¿æ╥é┐ë║é│éó"
  21.   210 a(0)="00007700000000000000000000066670000000000000000003c7577a000"
  22.   220 a(1)="000000000000009c7576b0000000000000000443b769ba0000000000000"
  23.   230 a(2)="00033ccccbba00000000000000003cccdbba0000000000000000ccaccbb"
  24.   240 a(3)="a000000000000000099ccccbbbaa000000000000002dcccbccbb0000000"
  25.   250 a(4)="00000002ccccccbbba000000000000021ca9ccbcbba00000000000001cb"
  26.   260 a(5)="9ccccccbb0000000000001baccca99cbb0000000000000ba9bcbbba9980"
  27.   270 a(6)="0000000000ea91ccccbba9800000000000ea91dedccba980000000000ec"
  28.   280 a(7)="b00deeccca988800000000c0b000deccca989880000000b0b0000dddcaa"
  29.   290 a(8)="9a98880000000a0000000dddddca9880000000000000000000dca980000"
  30.   300 a(9)="0000000000000000eca9000000000000000000000ecc000000000000000"
  31.   310 a(10)="000000ec":color 5:ii=0:jj=0:for i=0 to 15
  32.   320 palet(70+i,co(i)):palet(85+i,co(i)):next:for j=0 to 22:t()
  33.   330 for i=0 to 23:con():fill(i*1.4#,j*1.32#,1+i*1.4#,1+j*1.32#,col)
  34.   340 fill(95-i*1.4#,j*1.32#,95+1-i*1.4#,1+j*1.32#,col):next:next
  35.   350 a(0)="000770000000000000007777000000000000eb7577000000000000bc757"
  36.   360 a(1)="69000000000004cc679aaa00000000033ccaaaaaa00000000acccccaaaa"
  37.   370 a(2)="a00000000bbcbccaccaaa00000000bcacccbbaa000000000ca9ccbbbaee"
  38.   380 a(3)="cc0000edcaccccddccca9000edcaacccccdcca90000dcaaaccddadca900"
  39.   390 a(4)="00eca1acccaedc900000eca11bcaadcc900000dca111caadca00000ecc9"
  40.   400 a(5)="002900ca900000db900000ccba900":ii=0:jj=0:for j=0 to 17:t()
  41.   410 for i=0 to 17:con():fill(35+i*1.5#,2+j*1.5#,36+i*1.5#,3+j*1.5#,col)
  42.   420 fill(125-i*f,2+j*f,126-i*f,3+j*f,col):if col<>0 then {
  43.   430 fill(125-i*3#,102+j*3#,127-i*3#,104+j*3#,70+col)
  44.   440 fill(50+125+i*3#,102+j*3#,50+127+i*3#,104+j*3#,85+col) }
  45.   450 k=k+1:next:next:k=0:get(65,100,128,156,k_g):get(175,100,228,156,kg)
  46.   460 for j=0 to 1:for i=0 to 3:get(i*16,j*16,15+i*16,15+j*16,buf)
  47.   470 sp_def(k,buf):get(65+i*16,j*16,80+i*16,15+j*16,buf):sp_def(8+k,buf)
  48.   480 k=k+1:next:next:wipe()
  49.   490 /* ----- érésé`éfédü@écé`ésé` -------------------------------------
  50.   500 dim data_a(200)={2,2,2,2,3,4,5,5,6,8,9,9,9,8,6,5,4,3,3,3,3,3,2,2,2,
  51.   510 2,2,2,2,3,4,6,8,10,12,14,14,14,14,14,14,14,14,14,2,2,2,2,2,2,2,2,2,
  52.   520 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,4,6,8,10,2,2,2,2,10,8,6,4,3,2,2,
  53.   530 2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,3,3,2,3,3,2,
  54.   540 3,5,7,9,11,11,9,7,5,4,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}
  55.   550 dim data_b(200)={0,0,0,0,1,1,1,0,2,2,0,0,3,3,4,4,4,0,0,0,0,0,0,0,0,
  56.   560 0,0,0,0,1,2,2,2,2,2,1,0,0,4,4,4,0,0,0,0,0,0,0,0,4,4,4,4,4,4,0,0,4,4,
  57.   570 0,0,4,4,0,0,4,4,0,0,0,1,2,2,2,1,4,0,0,4,3,5,5,5,3,4,4,4,4,0,0,0,0,3,
  58.   580 4,1,3,4,4,1,1,4,0,4,3,4,0,4,0,4,0,0,0,0,0,2,5,0,2,5,0,2,2,2,2,2,5,5,
  59.   590 5,5,4,4,4,0,0,0,0,4,0,4,0,4,0,4,0,4,0,4,0,4,0,4,0,4}
  60.   600 dim data_c(100)={84,0,300,370,440,100,0,0,0,0,100,200,300,400,0,440,
  61.   610 440,0,0,0,440,410,340,200,60,0,0,0,0,0,200,200,200}
  62.   620 dim data_d(100)={256,234,238,238,238,256,234,0,0,0,340,312,284,256,0,
  63.   630 297,245,0,0,0,334,282,234,234,234,0,0,0,0,0,336,284,234}
  64.   640 dim data_1(190)={0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,7,5,4,5,6,0,0,0,
  65.   650 7,5,7,4,3,2,3,4,0,0,7,2,3,4,3,2,1,2,3,0,7,3,1,2,3,4,3,2,3,4,0,4,3,2,
  66.   660 3,4,6,5,4,5,6,5,7,5,4,5,5,3,5,6,7,6}:dim data_2(190)={8,0,0,0,0,0,0,
  67.   670 0,0,0,7,7,8,0,0,0,0,7,6,5,7,6,6,3,5,4,6,7,4,3,2,3,4,5,4,3,2,3,4,3,2,
  68.   680 1,2,3,4,3,2,1,2,3,4,3,2,3,4,5,4,3,2,3,4,6,5,4,5,6,6,7,5,4,5,5,3,5,6,
  69.   690 7,6}:dim data_3(190)={0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,7,5,6,0,
  70.   700 0,0,0,0,0,0,7,2,3,4,0,0,0,0,0,0,0,2,1,2,3,0,0,0,0,0,0,4,4,5,3,4,0,0,
  71.   710 0,0,0,6,3,2,3,5,6,0,0,0,0,7,5,2,1,2,7,8,0,0,0,0,5,4,3,2,3,4,6,0,0,0,
  72.   720 4,5,6,3,4,5,6,6,0,0,5,3,4,5,3,5,6,7,5,0,0,7,2,3,4,3,2,1,2,3,0,7,3,1,
  73.   730 2,3,4,3,2,3,4,8,6,3,2,3,4,6,5,4,5,6,5,7,5,4,5,5,3,5,6,7,6}
  74.   740 dim data_0(190)={3,4,5,3,4,3,2,3,4,6,5,2,3,4,5,3,2,1,2,3,4,3,1,2,3,
  75.   750 4,4,3,2,3,4,3,2,2,3,5,4,6,5,4,5,6,5,4,4,5,3,2,3,6,5,6,7,6,5,3,4,2,1,
  76.   760 2,4,7,6,4,7,6,5,6,3,2,3,5,4,5,6,5,4}:dim g6(300)={0,0,0,0,0,0,0,7,7,
  77.   770 0,7,7,0,0,0,0,0,0,0,0,0,7,4,3,7,3,2,7,7,0,0,0,0,0,0,7,4,2,2,3,2,2,2,
  78.   780 7,7,0,0,0,0,0,7,3,2,1,2,7,7,2,2,7,0,0,0,0,0,7,4,3,2,1,7,7,2,3,7,0,0,
  79.   790 0,7,7,0,7,4,3,2,1,2,3,7,0,0,0,7,1,2,7,7,1,2,3,2,1,2,4,7,0,7,7,7,1,3,
  80.   800 2,1,2,3,3,2,2,4,7,7,1,2,7,7,2,1,2,3,7,4,4,4,7,7,0,7,1,3,2,1,2,4,7,7,
  81.   810 7,7,7,7,0,0,0,7,2,1,2,5,7,7,0,0,0,0,0,0,0,7,2,1,2,4,7,7,0,0,0,0,0,0,
  82.   820 0,7,3,1,2,5,7,7,0,0,0,0,0,0,0,0,7,3,2,5,7,7,0,0,0,0,0,0,0,0,0,0,7,7,
  83.   830 7,7}:dim data_5(190)={0,0,2,2,0,0,0,2,3,2,0,0,2,3,3,2,0,2,3,15,11,2,
  84.   840 2,3,11,15,3,2,2,3,11,11,2,2,3,11,11,3,2,2,3,5,3,2,2,3,5,5,3,2,0,2,3,
  85.   850 3,2,0,2,2,2,2,0,0,0,2,2,0,3,0,2,3,3,3,3,3,3,2,3,2,3,3,5,5,6,6,5,5,3,
  86.   860 2,0,2,3,5,5,3,3,5,5,3,0,2,3,3,3,3,3,3,3,3,3,2,5,3,2,3,2,2,2,2,3,2,5,
  87.   870 2,3,2,2,0,0,0,0,2,2,3,0,2,0,3,3,0,0,3,3}
  88.   880 dim aaa(255)={0,0,0,1,1,1,1,1,0,0,0,0,1,1,4,5,1,5,4,1,1,0,1,2,3,4,5,
  89.   890 1,5,4,3,2,1,1,2,3,4,5,1,5,4,3,2,1,1,2,3,4,5,1,5,4,3,2,1,1,2,3,1,5,1,
  90.   900 5,1,3,2,1,1,2,3,1,5,1,5,1,3,2,1,1,2,3,4,5,1,5,4,3,2,1,1,2,3,4,5,1,5,
  91.   910 4,3,2,1,1,1,1,1,1,1,1,1,1,1,1}:k=0 :for j=0 to 10:t():for i=0 to 10
  92.   920 if aaa(k)>0 then fill(i*3,j*4,2+i*3,3+j*4,120+aaa(k))
  93.   930 k=k+1:next:next:get(0,0,32,39,dr):wipe():for i=0 to 4
  94.   940 palet(121+i,hsv(20,31,7+i*6)):next:k=0:for j=0 to 14:t():for i=0 to 14
  95.   950 if g6(k)>0 then { fill(i*f,j*f,1+i*f,1+j*f,30+g6(k))
  96.   960 fill(50+i*f,j*f,51+i*f,1+j*f,40+g6(k)) }
  97.   970 k=k+1:next:next:get(0,0,22,22,get_6):get(50,0,72,22,get_8):wipe()
  98.   980 k=0:for j=0 to 13:t():for i=0 to 10:fill(i*2,j*2,1+i*2,1+j*2,data_1(k))
  99.   990 fill(121-i*2,j*2,120-i*2,1+j*2,data_1(k))
  100.  1000 fill(i*2, 50+j*2,1+i*2, 51+j*2,data_2(k))
  101.  1010 fill(i*2,100+j*2,1+i*2,101+j*2,data_0(k))
  102.  1020 fill(i*2,150+j*2,1+i*2,151+j*2,data_3(k))
  103.  1030 fill(121-i*2,150+j*2,120  -i*2,151  +j*2,data_3(k))
  104.  1040 if data_5(k)<>0 then fill(i*2,202+j*2,1+i*2,203+j*2,10+data_5(k))
  105.  1050 k=k+1:next:next:get(0,0,21,19,get_1):get(0,100,21,113,get_0)
  106.  1060 get(0,50,21,63,get_2):get(0,150,21,177,get_3):get(100,150,121,177,get_9)
  107.  1070 get(100,0,121,13,get_4):get(0,200,21,227,get_5)
  108.  1080 put(78,0,99,19,get_1):put(78,14,99,31,get_0)
  109.  1090 put(100,14,121,31,get_0):for j=0 to 13:t():for i=0 to 43
  110.  1100 pset(78+i,32-j,point(78+i,j)):next:next
  111.  1110 fill(78,0,121,5,0):get(78,0,121,33,get_7):apage(1):for i=0 to 20
  112.  1120 fill(0,198-i*i/2,511,220-i*i/2,200+i):palet(200+i,hsv(120,30,4+i))
  113.  1130 next:for i=0 to 8:fill(0,221+i*i/2,511,230+i*i/2,240+i)
  114.  1140 palet(240+i,hsv(5,29,4+i)):next:contrast(0):for i=0 to 100
  115.  1150 pset(rnd()*511,rnd()*200,rnd()*255):next:apage(0):wipe()
  116.  1160 /* ----- éséhésékéd ---------------------------------------------
  117.  1170 sub2():for i=0 to 4:symbol(14+i,42,"âJâGâïé╠û`î»",3,4,0,100+i,0)
  118.  1180 palet(100+i,hsv(45-i,31,14+i*4)):next:m_stop():for i=0 to 2
  119.  1190 symbol(41+i,112,"START......PUSH STRIG 1 KEY!",1,1,0,50+i,0)
  120.  1200 symbol(41+i,130,"CONTINEW...PUSH STRIG 2 KEY!",1,1,0,50+i,0)
  121.  1210 symbol(8+i,230,"1995 6/15 for éÿ68000 HIDEYUKI TAKAHASHI",1,1,0,250+i,0)
  122.  1220 palet(50+i,hsv(0,31,21+i*5)):next:vpage(3):cls:home(0,0,0):sp_off()
  123.  1230 contrast(15):while 1:if strig(1)=1 then s1=0:s2=0:st=1:break
  124.  1240 if strig(1)=2 and st<>1 then s1=s1-22:s2=s2-5:break
  125.  1250 endwhile
  126.  1260 contrast(0):for i=0 to 2000:next:wipe():cls:for j=0 to 21 /*
  127.  1270 for i=0 to 3+data_a(s1)
  128.  1280 put(j*22,485-i*14,21+j*22,498-i*14,get_0):if i=3+data_a(s1) then {
  129.  1290 if data_b(s1)=0 then put(j*22,471-i*14,21+j*22,484-i*14,get_2)
  130.  1300 if data_b(s1)=1 then put(j*22,471-i*14,21+j*22,484-i*14,get_1)
  131.  1310 if data_b(s1)=2 then put(j*22,457-i*14,21+j*22,484-i*14,get_3)
  132.  1320 if data_b(s1)=3 then put(j*22,471-i*14,21+j*22,484-i*14,get_4)
  133.  1330 if data_b(s1)=4 then put(j*22,457-i*14,21+j*22,484-i*14,get_5)
  134.  1340 if data_b(s1)=5 then put(j*22,457-i*14,21+j*22,484-i*14,get_9)
  135.  1350 }
  136.  1360 next:y=-29:s1=s1+1:next:for i=0 to 4
  137.  1370 put(data_c(s2),data_d(s2),data_c(s2)+43,data_d(s2)+33,get_7):s2=s2+1:next
  138.  1380 if st=1 then kx_1=10:ky_1=175  :kx_2=450:ky_2=175 :dx=440:dy=351
  139.  1390 if st=2 then kx_1=10:ky_1=175  :kx_2=450:ky_2=175 :dx=0:dy=365
  140.  1400 if st=3 then kx_1=440:ky_1=345 :kx_2=445:ky_2=190 :dx=247:dy=365
  141.  1410 if st=4 then { kx_1=20:ky_1=310:kx_2=445:ky_2=190 :dx=224:dy=365
  142.  1420 put(198,357,219,384,get_5):put(264,357,285,384,get_5)
  143.  1430 put(198,327,219,354,get_5):put(264,327,285,354,get_5)
  144.  1440 put(198,297,219,324,get_5):put(264,297,285,324,get_5) }
  145.  1450 if st=5 then kx_1=450:ky_1=200 :kx_2=40:ky_2=180 :dx=206:dy=200
  146.  1460 if st=6 then { kx_1=430:ky_1=250 :kx_2=217:ky_2=270 :dx=313:dy=221
  147.  1470 put(246,293,267,320,get_5):put(226,317,247,47+297,get_5)
  148.  1480 put(266,269,287,296,get_5) }
  149.  1490 if st=7 then kx_1=300:ky_1=280:kx_2=368:ky_2=280:dx=206:dy=200:y=-26
  150.  1500 put(kx_1,ky_1,kx_1+22,ky_1+22,get_6)
  151.  1510 put(kx_2,ky_2,kx_2+22,ky_2+22,get_8)
  152.  1520 put(dx,dy,dx+32,dy+39,dr):fill(0,0,50,50,0):jump=0:z=0:x=20
  153.  1530 p=0:ke_z=0:m=1:b1():if st=8 then m_stop():ending()
  154.  1540 contrast(15):color 6:locate 0,0:print"âJâGâïé╠û`î»           STAGE";st
  155.  1550 /* ----- élé`éhéméP ---------------------------------------------
  156.  1560 while 1:home(0,x,255+y):home(1,xx,0):po=point(x+x+16,400+y+27)
  157.  1570 xx=xx+3:if xx>511 then xx=0
  158.  1580 sp_move(0,x,145,o1):sp_move(1,x+16,145,o2)
  159.  1590 sp_move(2,x,145+16,o3):sp_move(3,x+16,145+16,o4):sub()
  160.  1600 y=y+2*p/2:p=p+1:if po>0 and po<8 then y=y-6:p=-1:z=0:jump=0
  161.  1610 if po>30 and po<40 then fill(kx_1,ky_1,kx_1+22,ky_1+22,0):ke_z=ke_z+1:m_play(7)
  162.  1620 if po>40 and po<50 then fill(kx_2,ky_2,kx_2+22,ky_2+22,0):ke_z=ke_z+1:m_play(7)
  163.  1630 if po>9  and po<20 then over()
  164.  1640 if ke_z=2 and po>=120 and po<130 then break
  165.  1650 if z=0 and strig(1)=1 then z=1:p=-9:jump=1:m_play(8)
  166.  1660 if z=1 and m=0 then x=x-1 else if z=1 and m=1 then x=x+1
  167.  1670  if stick(1)=4 then m=0:if z=1 then x=x-2
  168.  1680  if stick(1)=6 then m=1:if z=1 then x=x+2
  169.  1690 if x<0 then x=0 else if x>225 then x=225
  170.  1700 endwhile
  171.  1710 m_stop():locate 5,6:print"âXâeü[âWü@âNâèâAü[üIüI":for i=0 to 5000
  172.  1720 next:st=st+1:goto 1260
  173.  1730 func sub():if m=0 then { if jump=0 then o1=2:o2=3:o3=6:o4=7
  174.  1740  if jump=1 then o1=0:o2=1:o3=4:o4=5
  175.  1750 } else if m=1 then { if jump=0 then o1=10:o2=11:o3=14:o4=15
  176.  1760  if jump=1 then o1=8 :o2=9 :o3=12:o4=13
  177.  1770 }
  178.  1780 endfunc
  179.  1790 func sub2():for j=0 to 4:for i=0 to 11:put(i*22,188,21+i*22,199,get_2)
  180.  1800 put(i*22,200+j*11,21+i*22,213+j*11,get_0):next:next
  181.  1810 put(5,135,68,191,k_g):put(186,136,170+69,56+135,kg):endfunc
  182.  1820 func b1() /* ----- éaéfél --------------------------------------
  183.  1830 A$="c+4.d4ed4.c+4.>b4.a4g+16a16<c+4.>g+4.f+g+ag+a16b16<c+16d16e4"
  184.  1840 A$=A$+">b16a+16a4f+16a16<l16dc+dc+>ba<c>b<c>bae+":B$="c+16>a16b<e"
  185.  1850 C$="ba16c+16e":D$="v13e4e16a16e4g+e+<d16e16>eeb<e+ar4ar4ar4g+r4"
  186.  1860 D$=D$+"c+4c+b4be4rerrd4.c4.c+4c+d4d":E$="<c+r>b":F$="v13a4ra4<c+"
  187.  1870 F$=F$+">brbb<c+g+c+rrc+r4c+r4>br4a4ab4bb4r<c+dc+>b4.a4.a4ab4b"
  188.  1880 G$="v13c+4rc+4edrdc+e+rf+a16g+16f+f+a16g+16f+f+g+16f+16e16d+16e"
  189.  1890 G$=G$+"f+16g+16a16b16f+4f+g+4r>a4<c+16d16>abag4.e+4.f+4f+g+4r"
  190.  1900 H$="a<ee>a<ee>g+b<dc+g+g+>f+<c+c+>f+<c+c+>d+<c+d+e>bed+<aa>e<bb>"
  191.  1910 H$=H$+"a<eef+c+c+>g<dd>e+<ccdaaebb"
  192.  1920 for i=1 to 8:m_alloc(i,2500):m_assign(i,i):next
  193.  1930 m_trk(1,"|:50o5@31v12q8l8r2.r2."+A$+"ef+g+ab<d>l8b<e4"+A$+"ef+ ")
  194.  1940 m_trk(1,"g+ab<dl8e&e4:|"):m_trk(2,"|:50o5@23v13q8l8"+B$+B$+B$+"")
  195.  1950 m_trk(2,""+B$+"o4@21v15"+A$+"@23<<v13l16g+ab<c+d>bl8g+b4<@21q8 ")
  196.  1960 m_trk(2,"v11>e4.a4.g+4b<c+c+16d+16e+16f+16a4.f+4e+16f+16a4.g+  ")
  197.  1970 m_trk(2,"f+16e16dc+4.d4.e4>a16g+16a4.b4.<c4.d4.l16def+g+ab:|")
  198.  1980 m_trk(3,"|:50o4@1v11q8l8"+C$+C$+C$+C$+D$+">"+D$+":|")
  199.  1990 m_trk(4,"|:50o4@1v11q8l8"+E$+E$+E$+E$+F$+F$+":|")
  200.  2000 m_trk(5,"|:50o4@1v11q8l8<erc+erc+erc+erc+"):m_trk(5,""+G$+G$+":|")
  201.  2010 m_trk(6,"|:50o2@10v14q6l8a<ee>a<ee>a<ee>a<ee>"+H$+">"+H$+":|")
  202.  2020 m_trk(7,"v14q8o6@54l32cef"):m_trk(8,"v15q8o4@38l64cefv12fv10fv8f")
  203.  2030 m_tempo(95):m_play(1,2,3,4,5,6):endfunc
  204.  2040 /* ----- édémécéhéméf -------------------------------------------
  205.  2050 func ending():contrast(0):home(0,0,242):home(1,0,0):cls:sp_off()
  206.  2060 for i=0 to 6:palet(15+78+i,hsv(0,26-i*2,10+i*3)):next:palet(15+73,5000)
  207.  2070 put(5,373,68,429,k_g):for i=0 to 20
  208.  2080 circle(160+i,287,40,50+i/2,270,90,260):palet(50+i/2,hsv(30,31,11+i))
  209.  2090 next:x=0:k=0:m=0:y=0:c=0:color 7:contrast(15):for i=0 to 45:locate 1+m*2,3+y*2
  210.  2100 print mid$(e1$,1+k*2,2):k=k+1:m=m+1:if m>13 then m=0:y=y+1
  211.  2110 for jj=0 to 1200:next:next:b1():m_tempo(65):color 5:for i=0 to 176
  212.  2120 put(244-i,373,297-i,429,kg):fill(298-i,373,299-i,429,0):next
  213.  2130 while 1:locate 19,9:print"édéméc":home(1,x,0):x=x+1:if x>511 then x=0
  214.  2140 for i=0 to 100:next:endwhile:endfunc
  215.  2150 func b2():for i=1 to 8:m_alloc(i,1000):m_assign(i,i):next
  216.  2160 A$="c.g16rc>ga16&ar16<c":B$="rer16e.e.f16re":C$="rcr16c.c.c16rc"
  217.  2170 D$="rgr16g.g.a16rg":E$="<e16>c16g16e16r<d16>b16g16d16rv13"
  218.  2180 F$="ceg<c>ceg<c>":G$="o5@1v11q6l8":m_trk(1,"|:90"+G$+B$+B$+B$+E$+"d4:|")
  219.  2190 m_trk(2,"|:90"+G$+C$+C$+C$+E$+">b4:|"):m_trk(3,"|:90"+G$+">")
  220.  2200 m_trk(3,""+D$+D$+D$+"v9"+E$+"f4:|"):m_trk(4,"|:90o3@10v14q8l8")
  221.  2210 m_trk(4,""+A$+A$+A$+">g.g16r<f16&g16g16g16r>ga16&b16:|")
  222.  2220 m_trk(5,"|:90o5v15q8l16@47o1c4o3@45c8r4r8o3@45co1v12@47ccc:|")
  223.  2230 m_trk(6,"|:90o2v15q8l8 @47c8.c16r8c8c8.c16r8c8 :|")
  224.  2240 m_trk(7,"|:90o6v11q8l16@29"+F$+F$+F$+F$+F$+F$+"r1:|")
  225.  2250 m_tempo(120):m_play():endfunc
  226.  2260 func con():if ii>58 then ii=0:jj=jj+1
  227.  2270 mo = mid$(a(jj),ii+1-int(ii/256)*256,1):if mo="a" then mo="10"
  228.  2280 if mo="b" then mo="11" else if mo="c" then mo="12"
  229.  2290 if mo="d" then mo="13" else if mo="e" then mo="14"
  230.  2300 col=val(mo):ii=ii+1:endfunc
  231.  2310 func over():m_stop():locate 7,6:print"éfé`éléd énéuédéq"
  232.  2320 for i=0 to 5000:next:contrast(0):for i=0 to 2000:next:goto 1160
  233.  2330 endfunc
  234.  2340 func t():locate 11,7:print"TIME :";ti:ti=ti-1 :endfunc
  235.